unit UGlobalVar;

interface

type
  TGLBVar = class
  public
    AppPath: string;
  end;

  function GLB: TGLBVar;

implementation

var
  FGLB: TGLBVar;

function GLB: TGLBVar;
begin
  if not Assigned(FGLB) then
    FGLB := TGLBVar.Create;
  Result := FGLB;
end;

initialization

finalization
  if Assigned(FGLB) then
    FGLB.Free;

end.
